Nota:
debido a que el lenguaje de esta página no permite utilizar algunos símbolos utilizaremos SQ por el símbolo de raíz cuadrada. Cuando escriba en la calculadora recuerda poner el símbolo en lugar de SQ. En esta página aparece OBJ en los programas pero en la calculadora aparece OBJ seguido de una flecha apuntando hacia la derecha.Programa para calcular la fórmula cuadrática:
« "ax²+bx+c
a=" {" "} INPUT OBJ 'A' STO
"ax²+bx+c
WHILE 'A= =0'
REPEAT
"INDEFINITE ERROR A≠0
PRESS ENTER" {" "} INPUT 'A' STO
"ax²+bx+c
a=" {" "} INPUT OBJ 'A' STO
END
"ax²+bx+c
b=" {" "} INPUT OBJ 'B' STO
"ax²+bx+c
c=" {" "} INPUT OBJ 'C' STO
'(-B+SQ(B^2-4*A*C))/(2*A)' EVAL POSI →TAG
'(-B-SQ(B^2-4*A*C))/(2*A)' EVAL NEGA →TAG
{A B C} PURGE
»
Programa de interpolarizar:
«"Y2=" {" "} INPUT OBJ 'Y2' STO
"Y1=" {" "} INPUT OBJ 'Y1' STO
"X2=" {" "} INPUT OBJ 'X2' STO
"X1=" {" "} INPUT OBJ 'X1' STO
"X=" {" "} INPUT OBJ 'X' STO
Y2 Y1 - X2 X1 - / M2 STO
M2 NEG X2 * Y2 + B2 STO
M2 X * B2 +
{ X B2 M2 Y2 Y1 X2 X1} PURGE
»
Programa para hacer una regresión linear:
«"0" OBJ 'CONTI' STO
"0" OBJ 'N' STO
"0" OBJ 'ZXi' STO
"0" OBJ 'ZYi' STO
"0" OBJ 'ZXY' STO
"0" OBJ 'ZX2' STO
"100000" OBJ 'NO' STO
"0" OBJ 'SI' STO
WHILE 'CONTI≠NO'
REPEAT "ENTRE Xi" {" "} INPUT OBJ 'Xi' STO
"ENTRE Yi" {" "} INPUT OBJ 'Yi' STO
'N+1' EVAL 'N' STO
'ZXi+Xi' EVAL 'ZXi' STO
'ZYi+Yi' EVAL 'ZYi' STO
'Xi*Yi' EVAL 'XY' STO
'Xi^2' EVAL 'X2' STO
'ZX2+X2' EVAL 'ZX2' STO
{SI NO} ORDER
"DESEA CONTINUAR" {" "} INPUT OBJ 'CONTI' STO
END
'(N*ZXY-ZXi*ZYi)/(N*ZX2-ZXi^2)' EVAL 'A' STO
'(ZX2*ZYi-ZXi*ZXY)/(N*ZX2-ZXi^2)' EVAL 'B' STO
A EVAL m TAG
B EVAL b TAG
{B A NO SI X2 XY Yi Xi ZX2 ZXY ZYi ZXi N CONTI} PURGE
»
Como crear un programa en tu HP